0 REM READ SPRITES (AUG 25/84)        :
1 :
2 REM 0 STATEMENTS, 2 FUNCTIONS
3 :
4 REM KEYWORD CHARACTERS: 10
5 :
6 REM KEYWORD     ROUTINE  LINE   SER #
7 REM F/XLOC(     XLOC     3786    041
8 REM F/YLOC(     YLOC     3812    042
9 :
10 REM U/CHKSPR (3664/037)
11 REM D/POWERS (3694/039)
12 :
13 REM  THIS MODULE ALSO CONTAINS ONE
14 REM  LINE FROM SET SPRITES -- 3624
15 :
16 REM ================================
17 :
608 .ASC "XLOC[168]YLOC[168]"
1608 .WORD XLOC-1,YLOC-1
3624 XS3 JMP $B248
3664 CHKSPR JSR $73
3666 CHS1 JSR $B79E
3668 CPX #8
3670 BCS XS3
3672 RTS
3674 ;
3694 POWERS .BYTE 1,2,4,8,16,32,64,128
3696 ;
3786 XLOC JSR CHS1
3788 JSR $AEF7
3790 TXA
3792 ASL
3794 TAY
3796 LDA $D000,Y
3798 TAY
3800 LDA POWERS,X
3802 AND $D010
3804 BEQ XL1
3806 LDA #1
3808 XL1 JMP $B391
3810 ;
3812 YLOC JSR CHS1
3814 JSR $AEF7
3816 TXA
3818 ASL
3820 TAY
3822 LDA $D001,Y
3824 TAY
3826 JMP $B3A2
3828 ;